	  �  V   k820309    �
          11.1        }��_                                                                                                           
       interpreter.F90 INTERPRETER              VARNAMES STOKENS OPERATIONS N NTOKENS OPADDSUB ISADDSUB OPMULDIV ISMULDIV TOKE ITOKE IOPERATIONS NUMBERK PDATA NUMBER                      @                             
                                                           
       PI_180                                                  
                   
                  9�R�Fߑ?                                                                                                              #         @                                                    #INIT%INDEX    #INIT%LEN_TRIM    #FUNC    #VARIABLENAMES 	   #STATUSFLAG 
                                                   INDEX                                                 LEN_TRIM           
D @                                                   1 ,          
 @                              	            
                      &                                                             D                                
                            %         @                                                    
       #EVALUATE%FLOOR    #EVALUATE%ABS    #EVALUATE%SQRT    #EVALUATE%EXP    #EVALUATE%AINT    #EVALUATE%ANINT    #EVALUATE%NINT    #EVALUATE%LOG10    #EVALUATE%LOG    #EVALUATE%TANH    #EVALUATE%COSH    #EVALUATE%SINH    #EVALUATE%ATAN    #EVALUATE%ACOS    #EVALUATE%ASIN    #EVALUATE%TAN    #EVALUATE%COS    #EVALUATE%SIN    #VARS                                                    FLOOR                                                 ABS                                                 SQRT                                                 EXP                                                 AINT                                                 ANINT                                                 NINT                                                 LOG10                                                 LOG                                                 TANH                                                 COSH                                                 SINH                                                 ATAN                                                 ACOS                                                 ASIN                                                 TAN                                                 COS                                                 SIN           
                                                    
 
             &                                           #         @                                                     #DESTROYFUNC%ASSOCIATED     #DESTROYFUNC%ALLOCATED !                                                    ASSOCIATED                                            !     ALLOCATED           @                               "            #         @ �                               #                  #BLANKS%ADJUSTL $   #BLANKS%TRIM %   #BLANKS%INDEX &   #FUNC '                                              $     ADJUSTL                                            %     TRIM                                            &     INDEX           
D @                              '                     1 #         @                                 (                  #RECOG_VARIABLES%SIZE )   #FUNC *   #VARIABLENAMES +                                              )     SIZE           
 @                              *                     1 ,          
 @                              +            
        	             &                                                   #         @                                 ,                  #TOKENS_ANALYZER%TRIM -   #TOKENS_ANALYZER%INDEX .   #TOKENS_ANALYZER%LEN_TRIM /   #FUNC 0                                              -     TRIM                                            .     INDEX                                            /     LEN_TRIM           
  @                              0                    1 #         @                                 1                   #ADD_SUB%TRIM 2                                              2     TRIM #         @                                 3                   #MUL_DIV%TRIM 4                                              4     TRIM #         @                                 5                   #UNARY%TRIM 6                                              6     TRIM #         @                                 7                   #POW%TRIM 8                                              8     TRIM #         @                                 9                   #FUNCTIONS%TRIM :                                              :     TRIM #         @                                 ;                   #BRACKETS%TRIM <                                              <     TRIM #         @                                 =                   #RECOG_VARS%TRIM >   #RECOG_VARS%INDEX ?                                              >     TRIM                                            ?     INDEX %         @                                 @                   
       #EVALUATE_DETALHES%INT A   #EVALUATE_DETALHES%FLOOR B   #EVALUATE_DETALHES%ABS C   #EVALUATE_DETALHES%SQRT D   #EVALUATE_DETALHES%EXP E   #EVALUATE_DETALHES%AINT F   #EVALUATE_DETALHES%ANINT G   #EVALUATE_DETALHES%NINT H   #EVALUATE_DETALHES%LOG10 I   #EVALUATE_DETALHES%LOG J   #EVALUATE_DETALHES%TANH K   #EVALUATE_DETALHES%COSH L   #EVALUATE_DETALHES%SINH M   #EVALUATE_DETALHES%ATAN N   #EVALUATE_DETALHES%ACOS O   #EVALUATE_DETALHES%ASIN P   #EVALUATE_DETALHES%TAN Q   #EVALUATE_DETALHES%COS R   #EVALUATE_DETALHES%SIN S   #VARS T                                              A     INT                                            B     FLOOR                                            C     ABS                                            D     SQRT                                            E     EXP                                            F     AINT                                            G     ANINT                                            H     NINT                                            I     LOG10                                            J     LOG                                            K     TANH                                            L     COSH                                            M     SINH                                            N     ATAN                                            O     ACOS                                            P     ASIN                                            Q     TAN                                            R     COS                                            S     SIN           
                                 T                   
              &                                              �   $      fn#fn !   �   �   b   uapp(INTERPRETER    J  @   J   HCO_ERROR_MOD    �  G   J  PHYSCONSTANTS %   �  p       PI_180+PHYSCONSTANTS !   A  p       HP+HCO_ERROR_MOD    �  �       INIT    I  >      INIT%INDEX    �  A      INIT%LEN_TRIM    �  L   a   INIT%FUNC #     �   a   INIT%VARIABLENAMES     �  P   a   INIT%STATUSFLAG    �  �      EVALUATE    �  >      EVALUATE%FLOOR    �  <      EVALUATE%ABS      =      EVALUATE%SQRT    \  <      EVALUATE%EXP    �  =      EVALUATE%AINT    �  >      EVALUATE%ANINT      =      EVALUATE%NINT    P  >      EVALUATE%LOG10    �  <      EVALUATE%LOG    �  =      EVALUATE%TANH    	  =      EVALUATE%COSH    D	  =      EVALUATE%SINH    �	  =      EVALUATE%ATAN    �	  =      EVALUATE%ACOS    �	  =      EVALUATE%ASIN    8
  <      EVALUATE%TAN    t
  <      EVALUATE%COS    �
  <      EVALUATE%SIN    �
  �   a   EVALUATE%VARS    x         DESTROYFUNC '   �  C      DESTROYFUNC%ASSOCIATED &   :  B      DESTROYFUNC%ALLOCATED !   |  @       STATUSFLAGPARSER    �  �       BLANKS    E  @      BLANKS%ADJUSTL    �  =      BLANKS%TRIM    �  >      BLANKS%INDEX       L   a   BLANKS%FUNC     L         RECOG_VARIABLES %   �  =      RECOG_VARIABLES%SIZE %     L   a   RECOG_VARIABLES%FUNC .   T  �   a   RECOG_VARIABLES%VARIABLENAMES     �  �       TOKENS_ANALYZER %   �  =      TOKENS_ANALYZER%TRIM &   �  >      TOKENS_ANALYZER%INDEX )     A      TOKENS_ANALYZER%LEN_TRIM %   I  L   a   TOKENS_ANALYZER%FUNC    �  Z       ADD_SUB    �  =      ADD_SUB%TRIM    ,  Z       MUL_DIV    �  =      MUL_DIV%TRIM    �  X       UNARY      =      UNARY%TRIM    X  V       POW    �  =      POW%TRIM    �  \       FUNCTIONS    G  =      FUNCTIONS%TRIM    �  [       BRACKETS    �  =      BRACKETS%TRIM      s       RECOG_VARS     �  =      RECOG_VARS%TRIM !   �  >      RECOG_VARS%INDEX "   
  j      EVALUATE_DETALHES &   t  <      EVALUATE_DETALHES%INT (   �  >      EVALUATE_DETALHES%FLOOR &   �  <      EVALUATE_DETALHES%ABS '   *  =      EVALUATE_DETALHES%SQRT &   g  <      EVALUATE_DETALHES%EXP '   �  =      EVALUATE_DETALHES%AINT (   �  >      EVALUATE_DETALHES%ANINT '     =      EVALUATE_DETALHES%NINT (   [  >      EVALUATE_DETALHES%LOG10 &   �  <      EVALUATE_DETALHES%LOG '   �  =      EVALUATE_DETALHES%TANH '     =      EVALUATE_DETALHES%COSH '   O  =      EVALUATE_DETALHES%SINH '   �  =      EVALUATE_DETALHES%ATAN '   �  =      EVALUATE_DETALHES%ACOS '     =      EVALUATE_DETALHES%ASIN &   C  <      EVALUATE_DETALHES%TAN &     <      EVALUATE_DETALHES%COS &   �  <      EVALUATE_DETALHES%SIN '   �  �   a   EVALUATE_DETALHES%VARS 